home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fopen / fopen.bas < prev    next >
BASIC Source File  |  1995-05-09  |  2KB  |  47 lines
  1. DefInt A-Z
  2.  
  3. ' This is used by OpenFile when we check if a file exists
  4. Type OfStruct
  5.     RecLen As String * 1
  6.     IsFixed As String * 1
  7.     ErrCode As Integer
  8.     Reserved As String * 4
  9.     CompleteName As String * 128
  10. End Type
  11.  
  12. ' OpenFile is used to check if a file exists.
  13. ' Lclose closes the file opened with OpenFile
  14. Declare Function OpenFile Lib "kernel" (ByVal fname$, aStruct As OfStruct, ByVal ofstyle%) As Integer
  15. Declare Function lclose Lib "kernel" Alias "_lclose" (ByVal FHandle%) As Integer
  16.  
  17. ' These give us the Win3 like Drive/Subdirectory listing
  18. Declare Function GetFocus Lib "user" () As Integer
  19. Declare Function SendMessage Lib "user" (ByVal a%, ByVal b%, ByVal c%, ByVal d As Any) As Long
  20.  
  21. ' The following variables are shared by all forms.
  22. ' FormTitle specifies FOPEN.FRM's title so the Parent can change it at will.
  23. ' FullName is the complete filename the user selects with FOPEN.FRM; it includes drive,
  24. ' subdirectory and filename (empty if the user presses Cancel).  TheFileName is the
  25. ' filename.  ThePath contains the path for open file, can also be used to point to a
  26. ' different path for FOPEN.FRM.  ThePattern sets/resets the file pattern, e.g. "*.BAS"
  27. Global FormTitle As String
  28. Global FullName As String
  29. Global TheFileName As String
  30. Global ThePath As String
  31. Global ThePattern As String
  32.  
  33.  
  34. ' These are used by the API functions
  35. Global Const WM_USER = &H400
  36. Global Const LB_DIR = WM_USER + 14
  37. Global Const LB_RESETCONTENT = WM_USER + 5
  38. Global Const EM_LIMITTEXT = WM_USER + 21
  39. Global Const OF_EXIST = &H4000
  40.  
  41. ' These are self explanatory
  42. Global Const Modal = 1
  43. Global Const true = -1
  44. Global Const false = 0
  45.  
  46.  
  47.